[@ҩƷ]
{
ӭҪʲô\ \
 </@buy> ҩƷ\
 </@sell> ҩƷ\
 < /@exit>\
[@Q318]
ֻҩû\\
< /@exit>
[@buy]
ҪʲôƷأ\ \ \
 < /@main>\
[@sell]
ҿҪʲô.\ \ \
 < /@main>\
[goods]
ҩ(С)    200        1
ħҩ(С)    200        1
ҩ()    100        1
ħҩ()    100        1
ǿЧҩ      100        1
ǿЧħҩ      100        1
ҩ(С)    100        1
ħҩ(С)    100        1
ҩ()    100        1
ħҩ()    100        1
ҩ	100	   1
ħҩ	100	   1
̫ˮ   	      100	3


[@ѩ˪]
ãҩѡҪҩƷ\ \
< ѩ˪ /SCOLOR=250></@@InPutInteger10>\ \
<ҩ/SCOLOR=250></@@InPutInteger11>\ \
<ħҩ/SCOLOR=250></@@InPutInteger12>\ \

[@CallInPutInteger10]
#IF
EQUAL N10 0
#SAY
ݵ0
break

#IF
#ACT
MUL M0 5000 <$STR(N10)>
GOTO @鱳

[@鱳]
#IF
CHECKBAGSIZE <$STR(N10)>
#ACT
GOTO @ҩ
#ELSESAY
ո񲻹!лл!

[@ҩ]
#IF
checkgold > <$STR(M0)> 
#ACT
give ѩ˪ <$STR(N10)> 
take  <$STR(M0)> 
#ELSESAY
ûôǮ!лл!


[@CallInPutInteger11]
#IF
EQUAL N11 0
#SAY
ݵ0
break

#IF
#ACT
MUL M0 4000 <$STR(N11)>
GOTO @鱳1

[@鱳1]
#IF
CHECKBAGSIZE <$STR(N11)>
#ACT
GOTO @ҩ1
#ELSESAY
ո񲻹!лл!

[@ҩ1]
#IF
checkgold > <$STR(M0)> 
#ACT
give ҩ <$STR(N11)> 
take  <$STR(M0)> 
#ELSESAY
ûôǮ!лл!


[@CallInPutInteger12]
#IF
EQUAL N12 0
#SAY
ݵ0
break

#IF
#ACT
MUL M0 4000 <$STR(N12)>
GOTO @鱳2

[@鱳2]
#IF
CHECKBAGSIZE <$STR(N12)>
#ACT
GOTO @ҩ2
#ELSESAY
ո񲻹!лл!

[@ҩ2]
#IF
checkgold > <$STR(M0)> 
#ACT
give ħҩ <$STR(N12)> 
take  <$STR(M0)> 
#ELSESAY
ûôǮ!лл!

}